library(magrittr)
readLines("LateHS.csv") %>% 
  paste0(collapse="\n") %>% 
  openssl::base64_encode() -> encoded

Download Post Jan 2017 High School Raw Data

library(magrittr)
readLines("combinedUserIDs.csv") %>% 
  paste0(collapse="\n") %>% 
  openssl::base64_encode() -> encoded

Download User ID Data